Info-Mac 3/Info_Mac_1994-01.iso/Applications/Fractal Generator/Maps/Sierpinski

Text File | 1993-06-07 | 370b | 11 lines

: sierpinski  ( generates the Sierpinski Triangle)
    0.0 0.0 1.0 0.0 0.0 1.0 initial
    0.0 0.0 0.5 0.0 0.0 0.5 image  solve make 0.333 1 set
    0.5 0.0 1.0 0.0 0.5 0.5 image  solve make 0.333 2 set
    0.25 0.5 0.75 0.5 0.25 1.0 image  solve make 0.333 3 set
    page ." The Sierpinski maps: " cr showmaps
    reset  settings
    key drop
    on outlines
    cdraw  ;